home *** CD-ROM | disk | FTP | other *** search
Text File | 2003-05-07 | 29.3 KB | 1,142 lines |
- object frmThumbnails: TfrmThumbnails
- Left = 252
- Top = 107
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- AutoScroll = False
- Caption = 'Thumbnail Generator'
- ClientHeight = 402
- ClientWidth = 592
- Color = clBtnFace
- Constraints.MinHeight = 429
- Constraints.MinWidth = 600
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object pgcPreview: TPageControl
- Left = 292
- Top = 0
- Width = 300
- Height = 383
- ActivePage = tbsOriginal
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 1
- TabStop = False
- OnChange = pgcPreviewChange
- OnChanging = pgcPreviewChanging
- object tbsOriginal: TTabSheet
- HelpContext = 80
- Caption = '&Original image'
- ImageIndex = 1
- object bvlButtons: TBevel
- Left = 0
- Top = 304
- Width = 292
- Height = 4
- Anchors = [akLeft, akRight, akBottom]
- Shape = bsTopLine
- end
- object imgOriginal: TEfImageEnView
- Left = 0
- Top = 0
- Width = 292
- Height = 289
- Cursor = crDefault
- Hint =
- 'Original image; right click with your mouse to open shortcut men' +
- 'u'
- ParentCtl3D = False
- Center = True
- MouseInteract = [miScroll]
- Anchors = [akLeft, akTop, akRight, akBottom]
- PopupMenu = pmnOriginalImage
- TabOrder = 0
- ScaleToFit = False
- end
- end
- object tbsPreview: TTabSheet
- HelpContext = 90
- Caption = '&Preview output'
- ImageIndex = 2
- object bvlButtons2: TBevel
- Left = 0
- Top = 304
- Width = 292
- Height = 4
- Anchors = [akLeft, akRight, akBottom]
- Shape = bsTopLine
- end
- object lblNoFile: TLabel
- Left = 0
- Top = 0
- Width = 292
- Height = 289
- Alignment = taCenter
- Anchors = [akLeft, akTop, akRight, akBottom]
- AutoSize = False
- Caption = 'There is no valid image selected.'
- Layout = tlCenter
- end
- object imgPreview: TEfImageEnView
- Left = 0
- Top = 0
- Width = 292
- Height = 289
- Cursor = crDefault
- Hint =
- 'Thumbnail configured according to settings; right click with you' +
- 'r mouse to open shortcut menu'
- ParentCtl3D = False
- Center = True
- MouseInteract = [miScroll]
- Anchors = [akLeft, akTop, akRight, akBottom]
- PopupMenu = pmnPreviewImage
- Visible = False
- TabOrder = 0
- ScaleToFit = False
- end
- end
- end
- object pgcFiles: TPageControl
- Left = 0
- Top = 0
- Width = 292
- Height = 383
- ActivePage = tbsFiles
- Anchors = [akLeft, akTop, akBottom]
- TabOrder = 0
- TabStop = False
- OnChange = pgcFilesChange
- OnChanging = pgcFilesChanging
- object tbsFiles: TTabSheet
- HelpContext = 70
- Caption = '&Files'
- object lbl_cmbFileFilter: TEnhLabel
- Left = 8
- Top = 9
- Width = 59
- Height = 13
- Caption = 'Files of &type:'
- FocusControl = cmbFileFilter
- end
- object lblLookInFolder: TEnhLabel
- Left = 8
- Top = 56
- Width = 38
- Height = 13
- Caption = 'Look &in:'
- end
- object lbl_edtSaveIn: TEnhLabel
- Left = 8
- Top = 309
- Width = 39
- Height = 13
- Caption = 'Sa&ve in:'
- FocusControl = edtSaveIn
- end
- object cmbFileFilter: TLblComboBox
- Left = 8
- Top = 24
- Width = 265
- Height = 21
- Hint = 'Defines the type of images to display in the file list'
- Style = csDropDownList
- DropDownCount = 12
- ItemHeight = 13
- TabOrder = 0
- OnChange = cmbFileFilterChange
- Items.Strings = (
- 'All images'
- 'Web images (*.jpg;*.jpe;*.jpeg;*.png)'
- 'JPEG (*.jpg;*.jpeg;*.jpe;*.jpc;*.j2k;*.jp2)'
- 'Portable Bitmap (*.pbm;*.pgm;*.ppm)'
- 'Portable Network Graphics (*.png)'
- 'Tagged Image File Format (*.tif;*.tiff;*.fax)'
- 'Truevision Targa (*.tga;*.targa;*.vda;*.vst)'
- 'Windows Enhanced Meta File (*.emf)'
- 'Windows Meta File (*.wmf)'
- 'Windows or OS/2 Bitmap (*.bmp;*.dib;*.rle)'
- 'Zsoft PC Paintbrush (*.pcx)')
- AddNewToStart = False
- AddNewToList = False
- CaseSensitive = False
- DestroyObjects = False
- LimitToList = True
- ReadOnly = False
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_cmbFileFilter
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- object edtSaveIn: TLblEdit
- Left = 8
- Top = 324
- Width = 241
- Height = 21
- Hint =
- 'Choose the folder that should receive the thumbnails. Leave blan' +
- 'k to use the current folder'
- Anchors = [akLeft, akBottom]
- TabOrder = 2
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_edtSaveIn
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- object btnSaveIn: TAttachedButton
- Left = 250
- Top = 324
- Height = 21
- Hint = 'Browse|Browse disk'
- Anchors = [akLeft, akBottom]
- TabOrder = 3
- Title = 'Save in'
- AttachedControl = edtSaveIn
- AttachTwoWay = True
- AllowMultiSelect = False
- BrowseDir = True
- OnGetName = btnSaveInGetName
- end
- object pnlLookIn: TPanel
- Left = 8
- Top = 76
- Width = 265
- Height = 217
- Anchors = [akLeft, akTop, akRight, akBottom]
- BevelOuter = bvNone
- TabOrder = 1
- object vclSplitter: TSplitter
- Left = 0
- Top = 85
- Width = 265
- Height = 8
- Cursor = crVSplit
- Hint = 'Move splitter to resize the "Explorer" windows'
- Align = alTop
- ResizeStyle = rsUpdate
- end
- object treLookInFolder: TPTShellTree
- Left = 0
- Top = 0
- Width = 265
- Height = 85
- Hint = 'Select the folder that contains your images'
- ShellList = lstFiles
- Options = [ptstoAutoFill, ptstoDefaultKeyHandling, ptstoShowHidden]
- Indent = 19
- Align = alTop
- TabOrder = 0
- PopupMenu = pmnTreeList
- Constraints.MinHeight = 16
- end
- object lstFiles: TEnhShellList
- Left = 0
- Top = 93
- Width = 265
- Height = 124
- Hint =
- 'Select images to process; press Ctrl+click to select multiple fi' +
- 'les'
- Options = [ptsloAutoFill, ptsloDefaultKeyHandling, ptsloDontChangeFolder, ptsloDontGoBelowBase, ptsloHideFoldersWhenLinkedToTree, ptsloFolderContextMenu]
- OnFillComplete = lstFilesFillComplete
- Align = alClient
- HideSelection = False
- IconOptions.AutoArrange = True
- MultiSelect = True
- PopupMenu = pmnFileList
- TabOrder = 1
- ViewStyle = vsList
- Constraints.MinHeight = 16
- OnSelectItem = lstFilesSelectItem
- OnRefreshItem = lstFilesRefreshItem
- OnShowItem = lstFilesShowItem
- end
- end
- end
- object tbsSettings: TTabSheet
- HelpContext = 60
- Caption = '&Settings'
- ImageIndex = 1
- object lbl_edtMaxWidth: TEnhLabel
- Left = 8
- Top = 9
- Width = 54
- Height = 13
- Caption = 'Max. &width:'
- FocusControl = edtMaxWidth
- end
- object lbl_edtMaxHeight: TEnhLabel
- Left = 98
- Top = 9
- Width = 58
- Height = 13
- Caption = 'Max. &height:'
- FocusControl = edtMaxHeight
- end
- object lbl_edtPrefix: TEnhLabel
- Left = 98
- Top = 57
- Width = 58
- Height = 13
- Caption = '&Prefix/suffix:'
- FocusControl = edtPrefix
- end
- object lblJpgQuality: TEnhLabel
- Left = 82
- Top = 112
- Width = 60
- Height = 13
- Hint = 'Double-click to reset the trackbar'
- Alignment = taCenter
- Caption = '&JPEG quality'
- FocusControl = tbrJpgQuality
- OnDblClick = ResetSlider
- end
- object lblBrightness: TEnhLabel
- Left = 86
- Top = 160
- Width = 49
- Height = 13
- Hint = 'Double-click to reset the trackbar'
- Alignment = taCenter
- Caption = '&Brightness'
- FocusControl = trbBrightness
- OnDblClick = ResetSlider
- end
- object lblContrastLess: TEnhLabel
- Left = 12
- Top = 208
- Width = 4
- Height = 16
- Caption = '-'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblContrastMore: TEnhLabel
- Left = 204
- Top = 208
- Width = 6
- Height = 13
- Alignment = taRightJustify
- Caption = '+'
- end
- object lblContrast: TEnhLabel
- Left = 91
- Top = 208
- Width = 39
- Height = 13
- Hint = 'Double-click to reset the trackbar'
- Alignment = taCenter
- Caption = '&Contrast'
- FocusControl = trbContrast
- OnDblClick = ResetSlider
- end
- object lblSharpness: TEnhLabel
- Left = 87
- Top = 256
- Width = 50
- Height = 13
- Hint = 'Double-click to reset the trackbar'
- Alignment = taCenter
- Caption = 'Sharpn&ess'
- FocusControl = trbSharpness
- OnDblClick = ResetSlider
- end
- object lblRotate: TEnhLabel
- Left = 96
- Top = 304
- Width = 32
- Height = 13
- Hint = 'Double-click to reset the trackbar'
- Alignment = taCenter
- Caption = '&Rotate'
- FocusControl = trbRotate
- OnDblClick = ResetSlider
- end
- object lblQuality1: TEnhLabel
- Left = 8
- Top = 112
- Width = 6
- Height = 13
- Caption = '1'
- end
- object lblQuality100: TEnhLabel
- Left = 190
- Top = 112
- Width = 18
- Height = 13
- Caption = '100'
- end
- object lblBrightnessLess: TEnhLabel
- Left = 12
- Top = 160
- Width = 4
- Height = 16
- Caption = '-'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblBrightnessMore: TEnhLabel
- Left = 204
- Top = 160
- Width = 6
- Height = 13
- Alignment = taRightJustify
- Caption = '+'
- end
- object lblSharpnessLess: TEnhLabel
- Left = 12
- Top = 256
- Width = 4
- Height = 16
- Caption = '-'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblSharpnessMore: TEnhLabel
- Left = 204
- Top = 256
- Width = 6
- Height = 13
- Alignment = taRightJustify
- Caption = '+'
- end
- object lblRotateLeft: TEnhLabel
- Left = 8
- Top = 304
- Width = 25
- Height = 13
- Caption = '-180�'
- end
- object lblRotateRight: TEnhLabel
- Left = 184
- Top = 304
- Width = 28
- Height = 13
- Alignment = taRightJustify
- Caption = '+180�'
- end
- object lbl_cmbResizeFilter: TEnhLabel
- Left = 8
- Top = 57
- Width = 46
- Height = 13
- Caption = 'Al&gorithm:'
- FocusControl = cmbResizeFilter
- end
- object lbl_cmbResize: TEnhLabel
- Left = 188
- Top = 9
- Width = 35
- Height = 13
- Caption = 'Resi&ze:'
- FocusControl = cmbResize
- end
- object lbl_cmbNewName: TEnhLabel
- Left = 188
- Top = 57
- Width = 54
- Height = 13
- Caption = '&New name:'
- FocusControl = cmbNewName
- end
- object edtMaxWidth: TLblEdit
- Left = 8
- Top = 24
- Width = 81
- Height = 21
- Hint = 'Defines maximum width for thumbnail creation'
- TabOrder = 0
- OnEnter = FieldEnter
- OnExit = FieldExit
- OnKeyPress = KeyPress
- OnKeyUp = KeyUp
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_edtMaxWidth
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- object edtMaxHeight: TLblEdit
- Left = 98
- Top = 24
- Width = 81
- Height = 21
- Hint = 'Defines maximum height for thumbnail creation'
- TabOrder = 1
- OnEnter = FieldEnter
- OnExit = FieldExit
- OnKeyPress = KeyPress
- OnKeyUp = KeyUp
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_edtMaxHeight
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- object edtPrefix: TLblEdit
- Left = 98
- Top = 72
- Width = 81
- Height = 21
- Hint =
- 'Defines the prefix/suffix added to the name of the thumbnail fil' +
- 'e'
- TabOrder = 4
- OnEnter = FieldEnter
- OnExit = FieldExit
- OnKeyPress = edtPrefixKeyPress
- OnKeyUp = edtPrefixKeyUp
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_edtPrefix
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- object tbrJpgQuality: TTrackBar
- Left = 4
- Top = 128
- Width = 212
- Height = 25
- Hint =
- '70|The higher the value, the better the quality and the bigger t' +
- 'he file'
- Max = 100
- Min = 1
- Orientation = trHorizontal
- ParentShowHint = False
- PageSize = 5
- PopupMenu = pmnReset
- Frequency = 5
- Position = 80
- SelEnd = 0
- SelStart = 0
- ShowHint = True
- TabOrder = 6
- ThumbLength = 15
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = PositionChanged
- end
- object trbBrightness: TTrackBar
- Left = 4
- Top = 176
- Width = 212
- Height = 25
- Hint = '0|Adjusts the brightness used to create the thumbnails'
- Max = 100
- Min = -100
- Orientation = trHorizontal
- ParentShowHint = False
- PageSize = 10
- PopupMenu = pmnReset
- Frequency = 5
- Position = 0
- SelEnd = 0
- SelStart = 0
- ShowHint = True
- TabOrder = 8
- ThumbLength = 15
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = PositionChanged
- end
- object trbContrast: TTrackBar
- Left = 4
- Top = 224
- Width = 212
- Height = 25
- Hint = '0|Adjusts the contrast used to create the thumbnails'
- Max = 100
- Min = -100
- Orientation = trHorizontal
- ParentShowHint = False
- PageSize = 10
- PopupMenu = pmnReset
- Frequency = 5
- Position = 0
- SelEnd = 0
- SelStart = 0
- ShowHint = True
- TabOrder = 10
- ThumbLength = 15
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = PositionChanged
- end
- object trbSharpness: TTrackBar
- Left = 4
- Top = 272
- Width = 212
- Height = 25
- Hint = '0|Adjusts the image sharpness used to create the thumbnails'
- Max = 100
- Min = -100
- Orientation = trHorizontal
- ParentShowHint = False
- PageSize = 10
- PopupMenu = pmnReset
- Frequency = 5
- Position = 0
- SelEnd = 0
- SelStart = 0
- ShowHint = True
- TabOrder = 12
- ThumbLength = 15
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = PositionChanged
- end
- object trbRotate: TTrackBar
- Left = 4
- Top = 320
- Width = 212
- Height = 25
- Hint = '0�|Rotation applied to thumbnail image'
- Max = 180
- Min = -180
- Orientation = trHorizontal
- ParentShowHint = False
- PageSize = 90
- PopupMenu = pmnReset
- Frequency = 90
- Position = 0
- SelEnd = 0
- SelStart = 0
- ShowHint = True
- TabOrder = 14
- ThumbLength = 15
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = PositionChanged
- OnExit = edtRotateExit
- end
- object cmbResizeFilter: TLblComboBox
- Left = 8
- Top = 72
- Width = 81
- Height = 21
- Hint = 'Defines the algorithm used for resizing images'
- Style = csDropDownList
- DropDownCount = 12
- ItemHeight = 13
- TabOrder = 3
- OnChange = cmbResizeFilterChange
- Items.Strings = (
- '[ Smart ]'
- 'None'
- 'Triangle'
- 'Hermite'
- 'Bell'
- 'BSpline'
- 'Lanczos3'
- 'Mitchell'
- 'Nearest'
- 'Linear'
- 'Fast Linear'
- 'Lossless')
- AddNewToStart = False
- AddNewToList = False
- CaseSensitive = False
- DestroyObjects = False
- LimitToList = True
- ReadOnly = False
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_cmbResizeFilter
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- object edtQuality: TSpinEdit
- Left = 224
- Top = 126
- Width = 53
- Height = 22
- Hint = 'JPEG quality'
- MaxValue = 100
- MinValue = 1
- TabOrder = 7
- Value = 80
- OnChange = edtQualityChange
- end
- object edtBrightness: TSpinEdit
- Left = 224
- Top = 174
- Width = 53
- Height = 22
- Hint = 'Brightness'
- MaxValue = 100
- MinValue = -100
- TabOrder = 9
- Value = 0
- OnChange = edtBrightnessChange
- end
- object edtContrast: TSpinEdit
- Left = 224
- Top = 222
- Width = 53
- Height = 22
- Hint = 'Contrast'
- MaxValue = 100
- MinValue = -100
- TabOrder = 11
- Value = 0
- OnChange = edtContrastChange
- end
- object edtSharpness: TSpinEdit
- Left = 224
- Top = 270
- Width = 53
- Height = 22
- Hint = 'Sharpness'
- MaxValue = 100
- MinValue = -100
- TabOrder = 13
- Value = 0
- OnChange = edtSharpnessChange
- end
- object edtRotate: TSpinEdit
- Left = 224
- Top = 318
- Width = 53
- Height = 22
- Hint = 'Rotate'
- MaxValue = 180
- MinValue = -180
- TabOrder = 15
- Value = 0
- OnChange = edtRotateChange
- OnExit = edtRotateExit
- end
- object cmbResize: TLblComboBox
- Left = 188
- Top = 24
- Width = 88
- Height = 21
- Hint = 'Choose how pictures should be resized'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnChange = cmbResizeChange
- Items.Strings = (
- 'No resize'
- 'Best fit'
- 'Shrink to fit'
- 'Enlarge to fit'
- 'Stretch to fit')
- AddNewToStart = False
- AddNewToList = False
- CaseSensitive = False
- DestroyObjects = False
- LimitToList = False
- ReadOnly = False
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_cmbResize
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- object cmbNewName: TLblComboBox
- Left = 188
- Top = 72
- Width = 88
- Height = 21
- Hint = 'Choose if thumbnail filename uses a prefix or suffix'
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 5
- OnChange = cmbNewNameChange
- Items.Strings = (
- 'Auto detect'
- 'Add nothing'
- 'Add prefix'
- 'Add suffix'
- 'Rename')
- AddNewToStart = False
- AddNewToList = False
- CaseSensitive = False
- DestroyObjects = False
- LimitToList = False
- ReadOnly = False
- LabelPos = lpTop
- LabelMargin = 2
- LabelComponent = lbl_cmbNewName
- LabelRelLeft = 0
- LabelRelTop = -15
- end
- end
- object tbsAbout: TTabSheet
- Caption = 'About'
- ImageIndex = 2
- object imgIcon: TImage
- Left = 16
- Top = 16
- Width = 32
- Height = 32
- end
- object btnWebsite: TButton
- Left = 184
- Top = 320
- Width = 91
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = '&Web Site'
- TabOrder = 2
- OnClick = btnWebsiteClick
- end
- object stxAbout: TStaticText
- Left = 64
- Top = 16
- Width = 201
- Height = 289
- AutoSize = False
- TabOrder = 0
- end
- object btnHelp: TButton
- Left = 80
- Top = 320
- Width = 91
- Height = 25
- Hint = 'Click here to open the Help file'
- Anchors = [akRight, akBottom]
- Caption = 'Help F1'
- TabOrder = 1
- OnClick = btnHelpClick
- end
- end
- object tbsNews: TTabSheet
- HelpContext = 50
- Caption = 'News'
- ImageIndex = 3
- object pnlNews: TPanel
- Left = 0
- Top = 40
- Width = 284
- Height = 315
- Align = alBottom
- Anchors = [akLeft, akTop, akRight, akBottom]
- BevelOuter = bvNone
- TabOrder = 0
- end
- object cbxPollNews: TCheckBox
- Left = 8
- Top = 8
- Width = 273
- Height = 17
- Hint = 'Polls the Internet every 15 days for news updates'
- Caption = 'Check for news every 15 days'
- TabOrder = 1
- OnClick = cbxPollNewsClick
- end
- object btnUpdate: TButton
- Left = 200
- Top = 8
- Width = 75
- Height = 25
- Hint = 'Click to update news, if available'
- Anchors = [akTop, akRight]
- Caption = '&Update'
- TabOrder = 2
- Visible = False
- OnClick = btnUpdateClick
- end
- end
- end
- object btnMakeAll: TButton
- Left = 328
- Top = 344
- Width = 75
- Height = 25
- Hint = 'Makes thumbnails of all the files in the selected folder'
- Anchors = [akRight, akBottom]
- Caption = 'Make &All'
- Enabled = False
- TabOrder = 2
- OnClick = btnMakeAllClick
- end
- object btnMake: TButton
- Left = 416
- Top = 344
- Width = 75
- Height = 25
- Hint = 'Makes thumbnails of only the selected images'
- Anchors = [akRight, akBottom]
- Caption = '&Make'
- Enabled = False
- TabOrder = 3
- OnClick = btnMakeClick
- end
- object btnClose: TButton
- Left = 504
- Top = 344
- Width = 75
- Height = 25
- Hint = 'Closes Easy Thumbnails program'
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = 'Close'
- TabOrder = 4
- OnClick = btnCloseClick
- end
- object pnlStatusBar: TStatusBar
- Left = 0
- Top = 383
- Width = 592
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object pmnOriginalImage: TPopupMenu
- AutoHotkeys = maManual
- AutoLineReduction = maManual
- OnPopup = pmnOriginalImagePopup
- Left = 472
- Top = 200
- object smnFitinWindow: TMenuItem
- Caption = '&Fit in Window'
- Hint =
- 'Set this option to shrink images so that they fit within the win' +
- 'dow'
- OnClick = smnFitinWindowClick
- end
- object smnCopyImageTag1: TMenuItem
- Caption = '&Copy Image Tag'
- Hint = 'Copies the appropriate HTML tag for the image to the Clipboard'
- OnClick = smnCopyImageTag1Click
- end
- end
- object vclTimer: TEfTimer
- Interval = 125
- Delay = 500
- StopAfterDelay = True
- OnDelayOver = vclTimerDelayOver
- Left = 440
- Top = 200
- end
- object pmnReset: TPopupMenu
- AutoHotkeys = maManual
- AutoLineReduction = maManual
- Left = 504
- Top = 200
- object smnResetTrackbar: TMenuItem
- Caption = '&Reset Trackbar'
- Hint = 'Resets the trackbar'
- OnClick = smnResetTrackbarClick
- end
- end
- object pmnPreviewImage: TPopupMenu
- AutoHotkeys = maManual
- AutoLineReduction = maManual
- OnPopup = pmnPreviewImagePopup
- Left = 472
- Top = 240
- object smnCopyImageTag2: TMenuItem
- Caption = '&Copy Image Tag'
- Hint = 'Copies the appropriate HTML tag for the image to the Clipboard'
- OnClick = smnCopyImageTag1Click
- end
- object smnQuickPreview: TMenuItem
- Caption = '&Quick Preview'
- Hint =
- 'Check this option if you want to speed up the rendering of the t' +
- 'humbnail previews (file size is not available when checked)'
- Visible = False
- end
- object smnSaveasJPEG: TMenuItem
- Caption = '&Save PNG as JPEG'
- Hint =
- 'Check this option if you want to PNG images saved as JPEG thumbn' +
- 'ails instead of their native format'
- OnClick = smnSaveasJPEGClick
- end
- end
- object pmnFileList: TPopupMenu
- OnPopup = pmnFileListPopup
- Left = 504
- Top = 240
- object smnView: TMenuItem
- Caption = '&View'
- OnClick = smnViewClick
- object smnLargeIcons: TMenuItem
- Caption = 'Lar&ge Icons'
- Hint = 'Displays items by using large icons'
- RadioItem = True
- OnClick = smnViewItemClick
- end
- object smnSmallIcons: TMenuItem
- Tag = 1
- Caption = '&Small Icons'
- Hint = 'Displays items by using small icons'
- RadioItem = True
- OnClick = smnViewItemClick
- end
- object smnList: TMenuItem
- Tag = 2
- Caption = '&List'
- Hint = 'Displays items in a list'
- RadioItem = True
- OnClick = smnViewItemClick
- end
- object smnDetails: TMenuItem
- Tag = 3
- Caption = '&Details'
- Hint = 'Displays information about each item in the window'
- RadioItem = True
- OnClick = smnViewItemClick
- end
- end
- object smnArrangeIcons: TMenuItem
- Caption = '&Arrange Icons'
- OnClick = smnArrangeIconsClick
- object smnbyName: TMenuItem
- Tag = 1
- Caption = 'by &Name'
- Hint = 'Sorts items alphabetically by name'
- RadioItem = True
- OnClick = smnArrangeItemClick
- end
- object smnbyType: TMenuItem
- Tag = 3
- Caption = 'by &Type'
- Hint = 'Sorts items by type'
- RadioItem = True
- OnClick = smnArrangeItemClick
- end
- object smnbySize: TMenuItem
- Tag = 2
- Caption = 'by &Size'
- Hint = 'Sorts items by size, from smallest to largest'
- RadioItem = True
- OnClick = smnArrangeItemClick
- end
- object smnbyDate: TMenuItem
- Tag = 4
- Caption = 'by &Date'
- Hint = 'Sorts items by date, from oldest to most recent'
- RadioItem = True
- OnClick = smnArrangeItemClick
- end
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object smnRefresh: TMenuItem
- Caption = '&Refresh'
- Hint = 'Refreshes the contents of the current folder'
- OnClick = smnRefreshClick
- end
- object smnMakeWebpage: TMenuItem
- Caption = '&Make Web page'
- Hint = 'Creates a Web page from selected images'
- Visible = False
- OnClick = smnMakeWebpageClick
- end
- object smnShowinbrowser: TMenuItem
- Caption = '&Show in browser'
- Hint = 'Shows selected images in Web browser'
- Visible = False
- OnClick = smnShowinbrowserClick
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object smnDelete: TMenuItem
- Caption = '&Delete'
- Hint = 'Sends selected files to Recycle Bin'
- OnClick = smnDeleteClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object smnProperties: TMenuItem
- Caption = '&Properties'
- Hint = 'Displays properties for this file'
- OnClick = smnPropertiesClick
- end
- end
- object pmnTreeList: TPopupMenu
- Left = 536
- Top = 240
- object smnTreeFind: TMenuItem
- Caption = '&Find...'
- Hint = 'Opens the find dialog'
- OnClick = smnTreeFindClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object smnTreeRefresh: TMenuItem
- Caption = '&Refresh'
- Hint = 'Refreshes the window contents'
- OnClick = smnTreeRefreshClick
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object smnTreeProperties: TMenuItem
- Caption = '&Properties'
- Hint = 'Displays properties for the current item'
- OnClick = smnTreePropertiesClick
- end
- end
- object vclImageConv: TEfImageConv
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'MS Sans Serif'
- PreviewFont.Style = []
- CaptionFont.Charset = DEFAULT_CHARSET
- CaptionFont.Color = clWindowText
- CaptionFont.Height = -11
- CaptionFont.Name = 'MS Sans Serif'
- CaptionFont.Style = []
- OutputFormat = 10002
- AddSubName = adAutoDetect
- CopyOnly = False
- JpgLossless = False
- ImageBrightness = 0
- ImageContrast = 0
- ImageCropRotate = False
- ImageDataType = itOriginal
- ImageFlip = fiNoFlip
- ImageHue = 0
- ImageResampleFilter = rfNone
- ImageChangeSize = True
- ImageRotate = 0
- ImageSaturation = 0
- ImageSharpness = 0
- LowercaseName = False
- MaxHeight = 150
- MaxWidth = 150
- ResizeMode = scReduce
- SubName = 'tn_'
- OnError = vclImageConvError
- Left = 536
- Top = 200
- end
- end
-